home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-13
/
unity331.zip
/
TPC.AWK
< prev
next >
Wrap
Text File
|
1991-09-19
|
425b
|
16 lines
# Parses the output of TPC and returns an error message, if any:
# Filename, Line, Column, ErrorMessage
# The compiler (TPC.EXE) must be run in the quiet mode "/Q"
/: Error/ \
{
split($1,a,"(")
split(a[2],b,")")
a = sprintf("%1s, %1s,",a[1],b[1])
b = ""
for (i=2; i <= NF; i++) b = sprintf("%1s%1s ",b,$i)
getline
getline
a = a " " index($0,"^") ","
print a b
}